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;"ECIOFF™ FUNCTION ROUTINE 
;JSR RS ,ECIOFF 

BIC 8ECI, RPOFV 
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; JSR RS, HCION 

BIS SHCI, RPOFV 

RTS RS 
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; JSR RS , PAKACK 
PAKACK: MOV #023, Re 
BR NOICOM 
;"RDPSET” FUNCTION ROUTINE 
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;REPORT INT’S ERROR MSG 


Ne FoR 


i 
Re 


) 


) 
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Ree at 
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R1,-(SP) 

"RRL 


1(R4) 
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(R4) 
TOBSY 
TO, DFLGWD 


SICSRCSSUR ERR S Stat giwe eS. St ys atent ee vee sam 
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173154 
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Ds em he be pe bee 
SBSRALGGLES 
= Cf 


PA Pome De fae Peo Gene pane pan Pas Pm pe 


Seen 


BaRaae 


SePeS 
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eg Sg ey ae ae a ot 
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ed ee a ed 
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ACQIAD: goro 
173112 GOTDSK: ee 
000012 T 
Be 
wg: Ge 
000014 f 
BNE 
000146 MOV 
60S: Pro 
MOV 
TSTB 
Q 
Bed 
iT 
BNE 
MOV 
000001 MOVB 
BR 
70S: MOV 
BR 
80S:  -. TST 
172746 ee 
BEQ 
ee. BR 
iveren OYE 
BR 
100$: CLR 
172702 BIC 
RTS 
ACQERR: MOV 
MOV 
iro 
ACOERC: AQV 
TSR 
ACQGDK: J 
JMP 
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IER, DFLGHD 


ant on) 
=z 
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ar 


SEQ 002s 





te THRU ON THIS ERROR? 


seT OF INITIATION ERR MSG 
360 THE 

;ADD 1 TO LOOP CNT 

!GET_ATA REG 

:1S THERE AN ATTENTION? 


inv ATA ONLY? 

;MY ATA LINE ALSO? 
et AL 
poet INES 


PREVIOUS 1/0? 
he CMNDS BEEN ISSUED? 


% ck 'st ARAN 


sor Ee ERROR INDICATOR 


(Sh the 


ion Rl & R2 
5 STORE CURR STATUS & REPORT 
REST Rl & Re 


1 OX ERROR RETURN POINT 
6 eK TF Oey IS BUSY NOW 
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& 
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-SBTTL sea. INTERRUPT TYPE 1/0 FUNCTION ROUTINES 


;"READ” FUNCTION ROUTINE 


iy oo Bae i i gp 
Hi 2 ME 


2-.,RO 
;G0 TO CHND COMMON PROCESSING 





5 
R 
3 
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3 


ee ip see EHS US 


WRITE: 
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: 

3833038 
' 





ceocom °° ;GO TO CMND COMMON PROCESSING 


| r : JSR aie ares 

rt ; - HORD T (BITS 16 - 21) 

| i :- Mone BOR bara $s (BITe 0 18 
tex oos242’ 012702 900173 ROHD: Mov 8173, : iBT ip Gre Fu aoe 
12% ppeses: 5 BR ROCOM’ GO T CORRON RE RD PRD PROCESSING 


a rn + ee ee ee 











CO3 
MAINOEC-11-DTRPR-B | RALI/RA7O = RPOA/RPOS/RPOG DEVICE ROUTINE FOR PG MACYIL 27(732) 24-SEP-76 14:21 PAGE B-1 SEO O02 


;"WRHD” FUNCTION ROUTINE 
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ay 
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Zz aan 
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4 
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ww 
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35 CNT 

Fi ooses4’ 012702 000163 WRHD: MOV 8163, R2 4 ‘Ene fe fons 
ts Bley a Sadie EibohPhocessina 
at s"WRCK” FUNCTION ROUTINE 

i ie i oeo naa Mh AOORESS (BITS 16 - 21) 
He j- HOR GbR pate ROR SS (BITS O = 15) 
if Sh. BY BL 1ST IF tas One Os 
319 ‘ TSR PE ekbeSy ; CK Fey 15 By 
ZI 00310" ia 174766 BOO i. RO at tp fone 

izes 005314" 000440 ga CMocom O°" $60 SS fo be co COM PROCESSING 
13ee ;"WRCKHO” FUNCTION ROUTINE 

1328 ; 


JSR RS. WRCKHD FUNCTION CALL 
te BS BIR ee ATE nue? 
ie Se: Re eB BW AERP BA Bal Phocessin 


ME 


1336 
1337 ;"SEEK™ FUNCTION ROUTINE 
es ;JSR RS, SEEK FUNCTION CALL 
| 1341 005324’ 012702 000105 SEEK: MOV #105, Re sSET up SEEK CMND CODE 
tice el 
os 005334’ are 1 SKCOM: J Bee Basy ; cx IF Dey S 
1344 005340’ 005267 174742 INC SKENT *ADD 1 TO SEEK CMND COUNT 
1345 005344’ 000424 BR CMOCOM GO TO CMND COMMON PROCESSING 
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~ 


INES 
;"SEARCH™ FUNCTION ROUTINE 
; JSR RS , SEARCH 
SEARCH: TOV SRO 
BR SKCOM 


; JSR OFFSET 
; .WORD 


OFFSET: MOV #115,R2 
MOV $140,R1 
BR SKCOA 


;"RETCTR™ FUNCTION ROUTINE 
;JSR RS,RETCTR 
RETCTR: MOV O11? Re 
SK 


;"RECAL” FUNCTION ROUTINE 
;JSR = RS, RECAL 
RECAL: MOV ane 


- a ee ee ee oe ee 
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ist Up Gro Fuse 
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+85 18 sek CHINO COM PROCESSING 





sa tae RH11/RH70 - RPOY/RPOS/RPOG DEVICE ROUTINE FOR MPG MACYI1 27(732) 24-SEP-76 14:21 PAGE 8-3 SEQ 0030 
DTRPAB.P RPOY/RPOS/RPOS INTERRUPT TYPE 170 FUNCTION INES 
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1 
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= rey 
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OTH TA, RO 
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hy. * BIT SET? 

TO SET ATA? 
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Me FOR L/ 0 TERR 
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;MCPE SET? 
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NY-ERRENDS 
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173600 
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_ 
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oad wee 
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TA 
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CMND? 
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ene ERR MSG ADR 
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;WCE ? 
(Y, N-60$) 
sgt ERR MSG AOR 


hae 
a sue fie gare como 


= 


e@wewewe Beweee SEeewse SEee Sese SG@Eeewe es 
=< 


BIT SET? 
sI IVE CLEAR FOR UNSAFE COND 
:60 TO EXIT 
iDCK SHO BE SET IS IT? 
ar foto no” 
sIN 1 Miedo 


ify” I BIT SET? 
:N.Y. 
sete IT PATTERN = 0? 
1H tty BIT T PATTERN ERR MSG ADR 
Hebe T POSITION T0O BIG? 
if INV eT POSITION ERR MSG ADR 
aan 
Mie pier Ger el 
i pA Sin 
‘ OBTART OF BAD BLOCK? 


NOD BLK LNGTH TO DATA DISPL 
oO CNT 


: OL FE A a ‘ae 


SHIFTING 
;SET UP A SHIFT COUNT 
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Roe 
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SP BBBsi 
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Ssennees 





Pit Satin BS | es oe 


A IN THIS 


ia fainelipe DATA? 


ape amet 


o B aoe ON “ os 


cP 1st Gano oF pare 


CMP —s- R11. CURPBC 
Rahs 2ND WORD OF PAIR 
JSR «PC, SUPTAD SET UP R3 8 RY AGAIN 
TST ie , DATA TO READ? 
sid CLRATE 30 WAIT FLG 8 EXIT 
Hove cORCAD Cau) Pete I 
JMP INTEX GO TO INT EXIT 
D0 ECC DATA CORRECTION 
;JSR PC, DOCORR S/R CALL 
‘Us = ATA i WORD_ DISPLACEMENT 
: MOV CURAOR, R3 GET DATA’S ABS STARTING ADR 
cS RAR “* 3ADD DATA DISPL INTO IT 
07222 se ey rr j RUNNING UNDER MEM MGMNT? 
re, RO iLOW 16 BITS TO A WORK REG 
Bersad> Bese Bic uacrno Re UROL Yo SeLPer Pace a 
“ Sir eae ol 


sGOT HI 16 BITS IN 1 WORD? 
:SAVE PAGE 4 STUFF 
sSET PAGE 4 TO USER’S ARREA 
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: 








LO3 
MAINOEC=11-DTRPA-B__ ALI /R7D. PON DEVICE ROUTINE FOR MPG ACYL 27722) 24-SEP-76 14:21 PROE 10 © SEO 0037 
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;CHECK IF DEVICE IS BUSY AND WAIT IF IT IS 






;JSR PC, CKDBSY S/R CALL 
5 
tORPERTT? R3°2"PROG TBL. AOR 
: RY = RPCS1 ADR 
i ET Mee aT § Pest v's 
NOV SAVE IT 
Ele EF WMT ab ger 
MOVB SELECT MY DRIVE 
Rove bp UNIT 8 
tog BY 
eras 
im I 100 Foe AN UNLOAD IN PROGRESS? 
BIS WAITING FOR sit TERM 
: TERMINATION? 


go-* 


iS aan TERMINATION 
fe ee 


Oy edd ioe VECTOR 


3 INT ROUT ADR 
; CURR USER STMNT ADR 


;EXIT IN-LINE 





POEL PEERED: 
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;PROCESS TERMINATION OF PREVIOUS I/0 FUNCTION 


NIGEL ATER SASS Sa 


SE RSS 
ie 
r 
e 

BESS 


;JSR  PC,PROCTM S/R CALL 
'R3 = PROG TABLE ADR 
{DESTROYS RO 

1 * 91014 PROCTH: HOV RI, -($P) ;SAVE Ri & R2 


, SOOTEM pF LGuD ian FLAG 
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RS ;00 TO MPG ERR RETN POINT 

aan se al 
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PC ;EXIT IN-LINE 


22g Rt OTIS 
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RESET INTERRUPT VECTOR S/R 
: PC, RINTV S/R CALL 
*R3 MUST CONTAIN PROG TBL ADR 
: DESTROYS 

RS, TVECT G0 CK IF I HAVE VECTOR CONTROL 

RINTEX 10S Be bum INT VECT ADR 

RS, acLRVEC GO HAVE MPG CLEAR IT 
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1 
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1 
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1 


SS aarp hmrmmeae sr cir inn ta Na 


Ris PC ;EXIT IN-LINE 


;TEST INTERRUPT VECTOR S/R 
;JSR RS, TVECT 


ast aan PROG w yr 


BYGADRURS) , -(SP) STORE FhGHD ADR TO TOENTIFY ME 
aTSTVEC {DO J HAVE VECTOR ? 


IF NOT SAME 


RHPINT-. 
Tere 
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- 


aa 


Joa sant 


or 
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;STORE CURR STATUS 
;STORE ADR OF CURR STATUS 


i Stone AOR OF LAST INT STATUS 


;STORE MSG ADR 


pts acy os 
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2N. Y-4S 


i Tos ExT. 
PE Pd ei ssn 


aN AY 6S THE “BEFORE ISSUING 1/0” MSG 


;G0 CALC MSG LNGTH 
PRINT THE “AFTER ISSUING 1/0” MSG 


;GET START ADR OF ERROR MSG 


STAI 
iSG Bt taal 


toe ERROR NEG” SPECIFIED 
SANOERRSHN # MSG OR HIGHER? 


SET ADR OF CODE AREA IN ERR MSG 
;SET UP ADR OF ERROR CODE TBL 
;SET UP ADR OF STORED DEV REG’S 
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S £é = a 
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: 
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;DISPLAY DEVICE REG’S 
30 CYL SECT VALUES 
Sete ce 
THIS STMNT? 
TH 
i NXT STMNT 
CK NXT STMNT 
up OF STMNT 8 DATA 
UP DATA AOR 


ere tow Ierte-40 SPACES 
Lone 8 MSG 

sRESTORE RS & RY 

sEXIT IN-LINE 


Fe 2 WB RV REE SP 


;BYTE O CONTAINS FLAG BITS & I.D. NANE LENGTH 





YS One oem A pleat 


BIT 


13: = AH = ot CONDITION 


{BYTE 1 IS THE BIT MASK 


IBYTES 2 THRU ? ARE THE BIT’S ASCII I.D. 
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« 2h > / 
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« > / 
¢ > / 
af 4 / 
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< /PGE/ 
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;RPCS1 - BYTE 1 


;RPCS2 - BYTE 1 
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SEQ 0043 
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: 


sRPER3 - BYTE 1 
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;EXIT IN-LINE 
S/R CALL 
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RO, SAVREG 


;JSR RO,RESREG 


; JSR 
;RESTORE REGISTERS RO THRU RS 


;SAVE REGISTERS RO THRU RS 
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; PRTIWD 
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PTLGTH= 162. 
;(PTLGTH= 212. 
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-SBTTL FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 
; PROGRAM TABLE FORMAT 


;PROGRAM TABLE LENGTH - NON MEM MGMNT VERSION OF MPG 
;PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 


PFLGMD= +0.  ; PROGRAM = WORD = 1 WORD 
et ane US I 
uTazOT= i fe 7 TERAINAT ION 
SSB ees 
; = 
berives 0 tt E PROGRAM IS ACTIVE (SPECIPICD gen an oe 
POPSW= +2. ;PROGRAM’S OPERATION SWITCHES - 1 WORD 





D0000 5 1 = STOP PROG EXECUTION UPON er ee) 
BONER: 20000; | = BONOT PRINT ON ERROR 
Bitie= 10000; 0 = 
BITli= ; Os 
nag AE 
; is 
Ife 1 ae 
DOIoT 3 ; ls 
AURPEP= is 
1 ; is 
HSKPEP= 4 ; 1s 
PFBBOV= 2 ; 1s 
NOCOMP= 1 ; ls 
PFWADR= +4 ;#;PROGRAM FLAGWORD ADDRESS - 1 WORD 
PASCIN= +6 ;PROGRAM’S NUMBER IN ASCII - 1 WORD 
PNAME= +8 ;PROGRAM’S NAME IN ASCII - 6 BYTES 
PROIOR= +14. ;ADDRESS OF READ 1/0 AREA - 1 WORD 
PWRIOA= +16. ;ADDRESS OF WRITE 170 ARER - 1 WORD 
PSRCST= +18. ;SOURCE STATEMENTS START ADDRESS - 1 WORD 
POBJST= +20. ;OBJECT CODE START ADDRESS - 1 WORD 
PLNGTH= +22. ;PROG AREA LENGTH (OBJ END MINUS PROG TBL START) - 1 WORD 
PTOCNT= +24. 31/0 TIMEOUT COUNT - 1 WORD 





Z 
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NO4 
Copp OTRO nirt ton phone bevice Murine # INE FOR MPG MACY11 27(732) 24-SEP-76 14:21 PAGE 13-1 SEQ 0052 
PMDLCD= +26. ;DEV ROUT MODEL # CODE - 1 WORD 


PDPNTR= +28.  ;CURRENT DEVICE NUMBER POINTER - 1 BYTE 
PCURDV= +29.  ; CURRENT DEVICE # - 1 BYTE 

PDNUNS= sDEVICE NUMBERS - 16 BYTES 

PTEMD= ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
PTEMI= sUSER PROGRAM TEMPORARY STORAGE - 1 WORD 
sUSER PROGRAM TEMPORARY STORAGE - 1 WORD 
SUSER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
SUSER PROGRAM TEMPORARY STORAGE - 1 WORD 
sUSER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
sNUMBER OF BYTES TO TRANSFER ON MOVE (NBR) - 1 WORD 
sDATA SOURCE ADDRESS ON MOVE (SRC) - 1 WORD 
. DATA DESTINATION ADDRESS ON MOVE (DST) - 1 WORD 
PSTKCT= +84.  ;# OF WORDS (X 2) SAVED OFF STACK - 1 WORD 
PSTKSV= +86.  ;STACK WORDS STORAGE AREA - 30 WORDS 

PSVREG= +146.  ;USER’S RO THRU RS REGISTERS STORAGE AREA - & WORDS 
PUSRPC= +158.  ;USER’S CURRENT PROGRAM COUNTER - 1 WORD 
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;FOLLOWING ENTRIES (PROIOX THRU PUBMAP) ARE ONLY IN MEM MGMNT VERSION 

;(PROIOX= +160. ;18/22 BIT ABSOLUTE ADDRESS OF READ 1/0 AREA - 2 WORDS) 
;(PROIOV= +164. ;168 BIT VIRTUAL ADDRESS OF READ 1/0 AREA - 2 WORDS) 
;(PWRIOX= +168. ;18/22 BIT ABSOLUTE ADDRESS OF WRITE 1/0 AREA - 2 WORDS) 
;(PWRIOV= 4172. ;18 BIT VIRTUAL ADORESS OF WRITE 1/0 AREA - 2 WORDS) 

= ;(PUPARS= +176. ;STORAGE AREA FOR USER’S PAR’S 0 THRU 7 - 8 WORDS) 
; (PUPORS= +192. ;STORAGE AREA FOR USER’S POR’S 0 THRU 7 - 8 WORDS) 
;(PUBMAP= +208. ;1ST UNIBUS MAP REG 8 AND 8 OF REGS USED - 1 WORD) 


iT ;END OF MEM MGMNT ONLY ENTRIES 

i 000240 PTSIZE= +160. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - NON MEM MGMNT 

i? ;(PTSIZE= +210. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - MEM MGMNT VERSION) 
el? 00de42 PTEND= +162. ;END OF PROGRAM TABLE - NON MEM MGMNT VERSION 
219 ;(PTEND= +212. ;END OF PROGRAM TABLE - MEM MGMNT VERSION) 
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TRPAB. P FORMATS FOR PROGRAM & DEVICE ROUTINE 
DEVICE ROUTINE TABLE 
e 000116 DRTLTH= 78. DEVICE ROUTINE TABLE LENGTH 
ae pooo00 bevrsz= +0. ;DEVICE ROUTINE SIZE IN BYTES - 1 WORD 
ese ooo0ce DEVFWO= +2. _; DEVICE ROUTINE FLAGHORD - 1 WORD 
1 o00004 DEVIWI= +4.  ;DEVICE INTERFACE WORD # 1 - 1 WORD 
o00006 DEVIW2= +6.  ; DEVICE INTERFACE WORD ® 2 - 1 WORD 
: 000010 DEVIW3= +8. DEVICE INTERFACE WORD 8 3 - 1 WORD 
o00012 DEVIWH= +10.  ;DEVICE INTERFACE WORD 8 4 - 1 WORD 
Sa 000014 DEVIWS= +12.  ;DEVICE INTERFACE WORD # S - 1 WORD 
S41 000016 DEVIWG= +14.  ;DEVICE INTERFACE WORD ® & - 1 WORD 
Se po0020 DEVIN7= +16.  ;DEVICE INTERFACE WORD 87-1 WORD (SIZE) 
e545 DEVIWG= +18.  ;DEVICE INTERFACE WORD 8 8 - 1 WORD (ERR) 
ooo024 DEVDRA= +20.  ;DEVICE REGISTERS ADDRESS - 1 WORD 
=a o00026 DEVIVA= +22.  ;DEVICE INTERRUPT VECTOR ADORESS - 1 WORD 
2551 000030 DEVRPS= +24.  ;DEVICE READ PROCESSOR STATUS WORD (BUS REQ) - 1 WORD 
ES oo0032 DEVWPS= +26.  ; DEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 WORD 
2055 o00034 DHKPAD= +28.  ;DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WORD 
000036 DERPAD= +30.  ;DEVICE ROUT REPORT ROUT REL ENTRY AOR - 1 WORD 
= 000040 DKILAD= +32.  ;DEVICE ROUT KILL ROUTINE REL ENTRY ADR - 1 WORD 
1 oo0042 DECTAD= +34.  ;DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 
Bs 000044 DTOEAD= +36.  ;DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WORD 
2565 000046 DEVIOB= +38.  ;DEVICE 1/0 BUSY BRANCH ADORESS (CIOBSY) - 1 WORD 
2567 o000s0 DEVDER= +40. DEVICE ERROR BRANCH ADDRESS (CUPGER) - 1 WORD 
Ss ooo0s2 DVUPRT= +42.  ;USER MODE PRINT BRANCH ADDRESS (ULIST) - 1 WORD 
7 oo00s4 DVCPRT= +44.  ;CMND MODE PRINT BRANCH ADDRESS (CLIST) - ! WORD 
Bs 000056 DEVBTA= +46.  ;CONVERT BINARY TO ASCII BR ADR (BINASC) - 1 WORD 
2575 000060 DVBTDA= +48.  ;CONVERT BINARY TO DECIMAL ASCII BR ADR (BTASLZ) - 1 WORD 


Cos 
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SEQ 00S4 
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DVPDTA= +50. ;CONVER? PACKED DECIMAL TO ASCII BR ADR (DECASC) - 1 WORD 
OVSFWD= +52. ;MPG SYSTEM FLAGWORD ADDRESS (CSYSFW) - 1 WORD 
DVSVEC= +54. ;SET INTERRUPT VECTOR BR ADR (SETVEC) - 1 WORD 
DVCVEC= +56. ;CLEAR INTERRUPT VECTOR BR ADR (CLRVEC) - 1 WORD 
OVTVEC= +58. ; TEST INTERRUPT VECTOR BR AOR (TSTVEC) - 1 WORD 
DVRINT= +60. ;RETURN FROM INTERRUPT BR ADR (RTNINT) - 1 WORD 
DVGETB= +62. ;GET DATA BYTE BR ADR (GETBYT) - 1 WORD 
DVPUTB= +64. ;PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 
DEVSTP= +66. ;DEVICE ROUT REL SYMBOL TABLE POINTER - 1 WORD 
DEVETP= +68. ;DEVICE ROUT REL ENTRY TABLE POINTER - 1 WORD 
DVPTEP= +70. ;PACK TABLE EXTEN. REL POINTER - 1 WORD 


: 000110 DVVTEP= +72. ; VECTOR TABLE EXTEN. REL POINTER - 1 WORD 
2607 
2608 





000112 DVCTEP= +74. ;COMPILER TBL EXTEN. REL POINTER - 1 WORD 
000114 DVINSP= +76. ;DEVICE INTERFACE WORD SYMBOL TBL REL POINTER - 1 WORD 
000116 DRTEND= +78. ;END OF DEVICE ROUTINE TABLE 
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